Возможности использования данного элемента управления ограничены только самим VBScript. Давайте попробуем запустить Excel. Вот код файла.

Hello
Sub Hello() 
	 Dim objXL
	 Set objXL = CreateObject("Excel.Application") 
	 objXL.Visible = TRUE
	 MsgBox "OK!"
End Sub

А код чтения из файла немного изменим.

............
Do While Not EOF(1)
    Input #1, LineString
    strCode = strCode + LineString & vbCrLf
Loop
............

Я использовал константу переноса строки.

vbCrLf Chr(13) + Chr(10)

Итак, запускаем.

107_1.gif (6979 b)

По нажатию на кнопку запущен Excel и пока диалоговое окно на экране он будет запущен. Стоит нажать OK, как сразу все пропадет. Правильно, переменная связанная с Excel локальная и сохраняется только пока работает процедура.

Шаг 107 - Более сложный пример VBScript.